home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 7 / developer source - volume 7.iso / orinf / apr96 / hoskf113.gif < prev    next >
Graphics Interchange Format  |  1996-11-16  |  10KB  |  491x427  |  4-bit (12 colors)
Labels: text | electronics | screenshot | display | software | computer icon | web page | number | website | operating system
OCR: popTRANSTYPE Properties D ... + PostChange Sub PostChanged On change of transaction type, ensure proper amount sign which is done in fldAMOUNT2. PostChange IF NOT ISNULL ( Value ) THEN SELECT CASE Value CASE "Check": IF repRegister. GetRecordset ( ) . GetColVal ( "AMOUNT" ) > 0 THEN embCheck. Colorfill = 15 txtSignature. Label = "Sample User" CASE 'Deposit": IF repRegister. GetRecordset () . GetColVal ( "AMOUNT" ) < 0 THEN embCheck. Colorfill = 9 txtSignature. Label = "- For DEPOSIT Only -" CASE "Withdraw": IF repRegister. GetRecordset ( ) . GetColVal ( "AMOUNT" ) > 0 THEN embCheck. Colorfill = 11 txtSignature. Label = "- For WITHDRAWAL Only -" END SELECT END IF